Исходный текст

Option Explicit
Call ShowSelObjectsInfo()


'==============================================================================
' Вывести сообщения с описанием объектов, выделенных пользователем 
' на Панели состава, и пути к ним в Дереве объектов
'==============================================================================
Sub ShowSelObjectsInfo()

        Dim strMsg, SelObjCol, obj, i
        
        'Получить коллекцию выделенных пользователем объектов
        'и сформировать строку с их описанием
        Set SelObjCol = ThisApplication.Shell.SelObjects
        For Each obj In SelObjCol
                strMsg = strMsg &  """" & obj.Description &  """" & Chr(13)
        Next

        'Показать суммарную информацию
        MsgBox "Выделено объектов: " & SelObjCol.Count & Chr(13) & strMsg, _
                vbInformation, "Информация о выделенных объектах"
        
        'Путь к выделенным объектам также представляет собой коллекцию TDMSObjects.
        'Разобрать коллекцию и сформировать строку с описанием
        Set SelObjCol = ThisApplication.Shell.SelObjectsPath
        strMsg = ""
        For i = SelObjCol.Count-1 To 0 Step -1
                strMsg = strMsg & """" & SelObjCol(i).Description &  """" & "->" & Chr(13)
        Next
        
        'Показать суммарную информацию
        MsgBox "Путь в Дереве объектов: " & Chr(13) & strMsg, _
                vbInformation, "Информация о выделенных объектах"

End Sub 
'==============================================================================